library(gtsummary)

# 选取部分数据，方便演示
trial2 <- trial %>% select(trt,age,grade)

trial2 %>% tbl_summary(
  #分组
  # by = trt,
  # statistic = 
                       )
